home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00200_Continue after bonus.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  434 b   |  24 lines
  1. property pSpr
  2. global gUserQuitFlag
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   if inShotMode() or gUserQuitFlag then
  7.     pSpr.member = member("Done_up")
  8.   end if
  9. end
  10.  
  11. on mouseUp
  12.   global gMode, gGameLevel, gGameSetup
  13.   if inShotMode() or gUserQuitFlag then
  14.     go("Main Menu")
  15.     stopEvent()
  16.   else
  17.     gMode = #game
  18.     if (gGameLevel + 1) > count(gGameSetup) then
  19.       stopEvent()
  20.       endOfGame()
  21.     end if
  22.   end if
  23. end
  24.